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ingle Precision BCD to Binary 



TAPES 



ASCII Source: 090-000027 



ABSTtiACT 



This routine converts a four digit (16-bit) number in BCD 
to its binary equivalent. 
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1. BMQUimimbiTS 
1, 1 Memory 

IK or larger alterable memory 
1-2 Equipment 

hOVh central processor 
1 • 3 External Subroutines 

Mone 
1.4 Other 
Mone 
2, OPEi-mTIKG PR OCEDURE 

2. 1 Caviling Sequence 

JSA .BCDB 
return 

2 . 2 Inpu t Forma t 

A four digit BCD integer is passed IICl, roost 
significant digit in bits ^-3. Its maxirousi 
value is 999S. 

2-3 Output Forniat 

The biliary eoul'^alent (always positive) is 
returned in AC1« 

2.4 Error Returns 

If a digit greater than binary l^^l is encountered 
in the input, Carry will be set, ACl will be un- 
changed, and hC0 will contain the bad digit. 
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3 • 5 F 1 o\-; D X a q r ~ ?!•■ s 
fione 

4. EXAi^lPLES AMD APP LICATIONS 

The ^SCII source of .BCB3 is provided with the NOVA 
software. If a user routine requires BCD to binary 
conversion, the tape should be edited into the user 
software. 

5. PROGimM LISTIN G 

A listing of .BCDB follows, mo origin is given in 
the source, enabling the tape to be edited anywhere 
within a user routine. 
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' S '.*, :' 
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"4 ;• 


i:^u : ■' 




C' ^ ..'' 


i. V 


-•£ j£r. 


': •."'^ 


' 








^ J •:;.:■» ;_ 


r, -^ , 


L-'-"hV^ 





C MAXIMUM VALJe 



: .'AL^' 



BCii INPUr IN ACl 



I CALL, 



'. > w ' ' ":- 







1 


EKCE: : } ..ir. ■■-'., 


-« „• ''«i^ ,1 






UNCHANIjtuiJS 


AC 2 






^ 


iJE^fKOyEiJs 


AtikI 


00^^00 


044043 


• 1 


3COB; .-TA U- 


, ,_ ^ y ^ 


0i00i 


044kJ4 7 




c »"h ; ■•• 


> •;I.-'i i 


«0002 


B^fe!044 




c , '■ . V ,> 


m" a " ' ,* 


0B003 


05404 5 




" ■. '-» »l 


- / , - 


00004 


02005! 




„";-.' ; ,j 


*i--;u •; 


00feJ05 


040050 




J . ''-' € j» 


»i;^:ii 


00«06 


152400 




SUti 2* 


2 



w^-'f IF A IJIGir >9 IS 

Et^COUNTEKED IN THfel INPUf* 
CAkHY WILL 3£ S£f# ACl WILL 
BE iJNCHANGEO* AN»J AC0 yiLL 
CONTAIN THE riAI3 OIGIT 



» ACl* AC3# CAKKY 

I SAVE IN-^-JF 

J SAVE IH 'jL-'f-iHEN-r INPUT WOf^O 

J SAVE AG 2 

J SAVE HEfUKN 

S CUUNI i;i 4 

I SAVE IN LiJOP C LIU NT .(^aHO 

J CLEAH KfclSULf HEtilSrtK 






^■A?s 



■■J .-J -'J : :> I' <.- i^6 ♦ E A 9 9 ! 



.J5 < -EAbtl 

JMF .t:A98 
MaV2 2,l,SKP 

LtIA li.<.k:A0l 

JMP §«EA03 



MJLT-r'^y' SUM BY ii AND ADD 
;^-L- 

:--_:.:^.. i<=-:syLT ro aci^ clear 

.- i -i • L -iE I i\ipy r I F £ i^KOH 

- y " ,_, -^' V 



t f 



S tier NtXf DI6IT Of INPUT, CHECK FOH LEGAL BCO 

J CALLING SEQUENCE I 

J JSH .EAS0 

^ L-^i. JK r:-. ,. .V - :.;A-: JiiiTI IN AC0 

■' ■■■-■ - -•- -^^ - L - LID r IN ACi 






'i ■d'idL', ■; ^ .- ■ : L 

LL yd •■ . J.^vi ■:.-, 

'■••' ■'- ''Ci> Jj ^../i /:/, V 

'-. •-' .V,> 1 LL --,•! T L 

^•t'i---^L l- '^ 

:^ ■ '-^..-..j LL ■i^!' L 

§0034 001401 



-^ LD L* : ,:iL' 



GET "H 



■'L L' : P L i olZl : oHiFTED 
^LLr-; L.. r. -.;:,,;%: r tvpjr woLD 
-.<!■ LOr.sTL^^ir <U; DLL I MAD 



IS LLT 



«9 



-• L» s a. » 



■y( § AND ADD AC0 



L ? . .^ b . a _■ ! L V 

«Liio - i?i- : L/J 

ifi^LJ-f i4 7<i^L 

^- Litf-'sy I'M ILL 

L ^-^ ! i i,>0 ■-■:, 



LL. 



. ^V.r „. J. # 1 
• -J •- J >! L 



I N*2 

I N*10+AL0 



^-i; i-3-L^- / ,£,.-, 

'■^''-- "L L'=LL cL \v 



I SAVE INPUT 

I SAVE AC 2 

I LAVE RETURN 



'■'•r L,L .-.^ , *r,A 



I LOOP COUNT FOK SHIFT 

I CUKRENT INPUT 

I LOOP COUNT FOR ^VJL-JPL/ 

J AOO 



Mm 



oi. .,■ t 



I BCO EHKOK TEST# OECIMAL 10 



